(use gauche.net)

(define sock (make-client-socket 'inet "localhost" 60000))
(socket-status sock)
(call-with-client-socket sock
  (lambda (in out)
    (display "hello\n" out)
    (print (read-line in))))


(define out (socket-output-port sock))
(display "world" out)
(display "\n" out)
(socket-close sock)
